home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / mirrex.txt < prev    next >
Encoding:
Text File  |  2000-01-24  |  3.9 KB  |  105 lines
  1. THE NEXT TEXT ASSUMES YOU OWN A COPY OF MICROSOFT VISUAL BASIC.
  2.  
  3. The following text explains how to create a KeyGen for CoSH's
  4. 3rd Crackme.Please note this is all beginner stuff (simple serial
  5. encoding algorithm),so more advanced crackers should move on to 
  6. more advanced stuff.OK.Now that about 50 ppl have stopped reading,
  7. here it goes for you newbies :)
  8.  
  9. First of all: The controls this proggy needs are:
  10. two Text boxes and one command button (remember this is NEWBIE talk!),
  11. a form (of course,where ELSE would you put them:O).Name the first
  12. textbox-> Da_Name and the second textbox-> Da_Serial.Afterwards name the
  13. command button -> Generate.Double click on the command button and you
  14. should see something like this (i'm typing all this for NON programmers
  15. as well!):
  16.  
  17. Private Sub Generate_Click()
  18.  
  19. End Sub
  20.  
  21. Copy and paste the following text between those two lines:
  22.  
  23. ------------------------CUT HERE--------------------------
  24.  
  25. If Len(Da_Name.Text) < 6 Then       'Here it checks how many chars 
  26.                     'you entered.If less then 6
  27.                     'show the messagebox
  28.  
  29.  message = MsgBox("Enter at least 6 characters!", vbOKOnly, "ERROR!", 0, 0) 
  30.  
  31.  GoTo too_less_chars                'And exit the generation 
  32.                     '(The crackme needs a minimum of 6 chars,
  33.                     'else it will show you the wrong code message.)
  34. End If                                                                      
  35.  
  36. entered_name=Da_Name.text                  'save your entered name  
  37.                                   
  38. c = 0                           'set variable c to 0
  39.  
  40. For i = 1 To Len(Da_Name.Text)             'this loop loops n times where n 
  41.                     'is how many chars you've entered
  42.  
  43.  c = c + 1                                 'increment c (i'm an asm coder)
  44.  
  45.  co = Mid(Da_Name.Text, i, 1)              'variable co is set to the char 
  46.                     'at which the loop is 
  47.                     '(for ex. i=5->co contains the fifth char)
  48.  
  49.  a = Asc(co)                               'set a to the ASCII code of the 
  50.                     'char which is in bo
  51.  
  52.  a = a Xor c                               'exclusive OR a against the value 
  53.                     'in c (which would be 1 at this moment)
  54.  
  55.  b = Chr(a)                                'set variable b to the char which 
  56.                     'belongs to the calculated ASCII code of a
  57.  
  58.  name_1 = name_1 + b                       'name_1 is our calculated name.b 
  59.                     'is added up to get to the next char.
  60.  
  61. Next                                       'loop n times where n is the 
  62.                     'length of our entered name
  63.  
  64. Da_Serial.Text = name_1                    'name and serial have to be the 
  65.                     'same,so serial=name
  66.  
  67. c = 9                                      'Da_Name would contain Newbie_crack.
  68.                     'Anyway,I think you got the point!
  69.  
  70. For i = 1 To Len(Da_Serial.Text)           'Now it's time for the serial
  71.  
  72.  c = c + 1                                 'The things coming now,should be 
  73.                     'familiar to you (if you read the above:))
  74.  co = Mid(Da_Serial.Text, i, 1)
  75.  a = Asc(co)
  76.  a = a Xor c
  77.  b = Chr(a)
  78.  serial = serial + b
  79. Next
  80. Da_Serial.Text = serial                   'Da_Serial contains the calculated serial now.
  81.                     'Go on.Copy and paste the generated serial and 
  82.                     'your entered name into the Crackme and you'll 
  83.                     'see it works!!
  84. Da_Name.Text=entered_name                 'the name you entered back into 
  85.                     'the textbox
  86. too_less_chars:  
  87.  
  88.  
  89. -------------------------STOP CUTTING HERE-------------------------------
  90. I hope i'e made myself clear.If not...Contact me!
  91. Now,go out and compile it.There is your first working keygen!!
  92. Disclaimer: Use the code above at you own risk!
  93.  
  94. Please note:
  95.  
  96. This is the first time i've coded something in VB,so please don't blame
  97. me for bad coding.I know that you can do it in an easier way,but i've 
  98. written this for newbies like i said.Should you want to contact me,here's my 
  99. email adress:
  100.  
  101. mirrex@freemail.nl
  102.  
  103. ****************************END OF THE KEYGEN*****************************
  104.  
  105. This text was written at 05-04-1999 by MiRReX